home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / corewars / softbomb.rdc < prev    next >
Text File  |  1989-04-28  |  407b  |  24 lines
  1.     ;    SOFTBOMB v1.0
  2.     ;    (C) Lars Riemer 88
  3.     ; "If it moves, kill it; if it doesn't, kill it anyway."
  4. START    ;
  5.     MOV    REREZAP    <DEST
  6.     MOV    REZAP    <DEST
  7.     MOV    LOOP    <DEST
  8.     SPL    @DEST
  9.     ADD    OFFSET    DEST
  10.     DJN    START    OFFSET
  11.     ADD    DEST    OFFSET
  12.     JMP    START
  13. DEST    DAT    666
  14. OFFSET    DAT    666
  15. GUARD    DAT    1234
  16. IMPGUARD    MOV    0    1
  17.     ;
  18. SOFTBOMB    DAT    <0
  19. LOOP    ADD    <0    <0
  20. REZAP    DJN    LOOP    <LOOP
  21. REREZAP    DJN    LOOP    @LOOP
  22.     MOV    0    1
  23.     END
  24.